home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / pgvw174.zip / R-PCCHAT.MRG next >
Text File  |  1992-06-22  |  12KB  |  327 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce NEW\R-PCCHAT.BAS
  3. * RBBS-PC.BAS:  Date 6-20-1992  Size 147219 bytes
  4. * ------------[ Created 06-22-1992 11:28:38 ]------------
  5. * REPLACING old line(s) by new
  6. 420 IF MID$(ZMsgRec$,57,1) = "A" THEN _
  7.        ZLogonErrorIndex = 6 : _
  8.        ZWasLG$(6) = ZWasLG$(6) + _
  9.                 LEFT$(ZMsgRec$,25) : _
  10.        ZOutTxt$ = "The name '" + ZActiveUserName$ + _
  11.                   "' is in use on another node" : _
  12.        CALL RingCaller : _
  13.        GOTO 10620
  14.     ZFirstName$ = LEFT$(ZMsgRec$,INSTR(ZMsgRec$, " ") - 1)
  15.     IF NOT ZPrivateDoor THEN _
  16.        CALL SkipLine (1) : _
  17.        CALL QuickTPut1 (ZFirstName$ + ", welcome back!") : _
  18. * ------[ first line different ]------
  19.        CLOSE 7 : OPEN "O",7,"RBBS" + ZNodeID$ + "PG" : CLOSE 7 : _   ' DR062201
  20.        CALL Talk (11,ZOutTxt$)
  21.     IF ZExitToDoors THEN _
  22.        GOTO 457
  23. '
  24. ' *****  TEST FOR REMOTE SYSOP LOGGING ON   ***
  25. '
  26. * REPLACING old line(s) by new
  27. * ------[ first line different ]------
  28. 800 CALL ViewStat ("A")                                              ' DR062201
  29.     IF ZAdjustedSecurity THEN _
  30.        GOSUB 5135
  31.     IF ZOrigCnfg$ = ZCurDef$ THEN _
  32.        ZMainUserFileIndex = ZUserFileIndex : _
  33.        ZOrigSec = ZUserSecLevel : _
  34.        ZUserSecSave = ZUserSecLevel : _
  35.        ZOrigUserName$ = ZActiveUserName$
  36.     ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
  37.        ((ZOrigCnfg$ <> ZCurDef$ OR NOT ZSubBoard) AND _
  38.         (NOT ZPrivateDoor) AND (NOT ZExitToDoors))
  39.     GOSUB 9500
  40.     IF (NOT ZExitToDoors) AND (NOT ZSubBoard) THEN _
  41.        CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
  42.                  " Lvl" + STR$(ZUserSecLevel) + " " + TIME$,2)
  43.     PrevLastOn$ = ZLastDateTimeOn$
  44.     IF ZLocalUser THEN _
  45.        ZTalkToModemAt$ = "9600" : _
  46.        ZBaudParity$ = "9600 BPS,N,8,1" : _
  47.        ZModemInitBaud$ = "9600" : _
  48.        ZSnoop = ZTrue : _
  49.        ZLineFeeds = ZTrue
  50.     CALL SetCrLf
  51.     CALL SetPrompt
  52.     CALL XferType (2,ZTrue)
  53.     IF NOT ZSubBoard THEN _
  54.        BoardCheckDate$ = PrevLastOn$
  55.     CALL SetSysOp
  56.     IF ZWasA THEN _
  57.        ZActiveUserName$ = "SYSOP" : _
  58.        ZFirstName$ = "SysOp"
  59.     IF ZExitToDoors OR ZSubBoard THEN _
  60.        GOTO 815
  61.     GOSUB 465
  62.     IF (ZEightBit AND _
  63.        ZAutoDownDesired) OR _
  64.        ZAskID THEN _
  65.        CALL TestUser
  66.     CALL QuickTPut1 ("Logging " + ZActiveUserName$)
  67.     CALL Talk (1,ZOutTxt$)
  68.     Temp$ = STR$(ZBaudTest!) + MID$(ZBaudParity$,INSTR(ZBaudParity$," B"))
  69.     CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$ + _
  70.                 ", operating at" + Temp$)
  71.     CALL SkipLine (1)
  72.     Attempts = 0
  73.     ZWasZ$ = ZActiveUserName$ + _
  74.             " on at " + _
  75.             ZCurDate$ + _
  76.             ", " + _
  77.             ZTime$ + _
  78.             " from " + _
  79.             ZWasCI$ + _
  80.             "," + Temp$
  81.      ZWasNG$ = ZWasZ$ + SPACE$(128 - LEN(ZWasZ$))
  82. '
  83. ' *  ALWAYS RECORD THE HASH/INDIVIDUATING FIELD TO EACH RECORD LOGGED OUT
  84. '
  85.      WasX$ = "{" + _
  86.           HashValue$ + _
  87.           "/" + _
  88.           ZIndivValue$ + _
  89.           "}"
  90.      IF LEN(ZWasZ$) < 65 THEN _
  91.         WasX = 65 _
  92.      ELSE WasX = LEN(ZWasZ$) + 2
  93.      MID$(ZWasNG$,WasX) = WasX$
  94.      CALL Printit ("  " + ZWasZ$)
  95.      IF ZNewUser THEN _
  96.         CALL UpdtCalr ("NEWUSER",1) : _
  97.         CALL Muzak (2)
  98. '
  99. ' *****  NOTIFY CALLER IF ABLE TO "AUTODOWN"  ****
  100. '
  101.     IF ZEightBit AND ZAutoDownYes THEN _
  102.        ZOutTxt$ = CHR$(9) + _
  103.             ZReturnLineFeed$ + _
  104.             "You may use AUTODOWNLOADing!" : _
  105.        CALL RingCaller : _
  106.        CALL DelayTime(4)
  107. * REPLACING old line(s) by new
  108. * ------[ first line different ]------
  109. 1205 CALL ViewStat ("A") : CALL ViewChek                             ' DR062201
  110.      IF ZSubParm < 0 THEN _
  111.         GOTO 202
  112.      ZSubParm = 1
  113.      ZStopInterrupts = ZFalse
  114.      ZWasQ = 0
  115.      IF (NOT ConfMailJoin) AND (ZHomeConf$ = "" OR ZHomeConf$ = "MAIN") THEN _
  116.         GOTO 1209
  117.      TurboLogon = LinkNext OR (NOT ConfMailJoin)
  118.      ConfMailJoin = ZFalse
  119.      ZFF = 8
  120.      IF ZHomeConf$ = "MAIN" THEN _
  121.         ZHomeConf$ = "M"
  122.      ZUserIn$(ZAnsIndex) = ZHomeConf$
  123.      IF LinkNext THEN _
  124.         ZUserIn$(ZAnsIndex + 1) = "R" : _
  125.         ZLastIndex = ZAnsIndex + 1
  126.      ZLastIndex = -ZLastIndex*(ZLastIndex > ZAnsIndex)-ZAnsIndex*(ZLastIndex <= ZAnsIndex)
  127.      ZAnsIndex = ZAnsIndex - 1
  128.      ZHomeConf$ = ""
  129.      ZWasQ = ZLastIndex
  130.      ZStoreParseAt = 1
  131.      ZLastCommand$ = "MJ"
  132.      GOTO 1240
  133. * REPLACING old line(s) by new
  134. * ------[ first line different ]------
  135. 2100 CALL ViewStat ("B")                                             ' DR062201
  136.      ZOutTxt$ = "Type " + _
  137.           ZMsgHeader$ + _
  138.           STR$(ZMaxMsgLines) + _
  139.           " lines max" + _
  140.           ZPressEnter$
  141.      GOSUB 12975
  142.      GOSUB 3200
  143. * REPLACING old line(s) by new
  144. * ------[ first line different ]------
  145. 2315 CALL ViewStat ("B")                                             ' DR062201
  146.      ZOutTxt$ = "Edit Sub-function <A," + _
  147.           LEFT$("B,",-2 * (ZSysop OR ZLocalUser)) + _
  148.           "C,D,E,I,L,M,R,S,?>"
  149.      GOSUB 12930
  150.      IF ZWasQ = 0 THEN _
  151.         GOTO 2315
  152.      CALL AraAllCaps (ZUserIn$(),ZAnsIndex)
  153.      ZWasZ$ = ZUserIn$(ZAnsIndex)
  154. * REPLACING old line(s) by new
  155. * ------[ first line different ]------
  156. 4330 CALL ViewStat ("C")                                             ' DR062201
  157.      IF LinkNext THEN _
  158.         LinkNext = ZFalse : _
  159.         GOSUB 1893 : _
  160.         GOSUB 5344 : _
  161.         NumMsgsSelected = 1 : _
  162.         ZAnsIndex = 1 : _
  163.         MsgIndex = 1 : _
  164.         ZLastIndex = 1 : _
  165.         CanKill = (ZSysop OR ZUserSecLevel >= ZSecKillAny) : _
  166.         IF LinkForward THEN _
  167.            CurMsg = ZLastMsgRead + 1 : _
  168.            GOTO 4450 _
  169.         ELSE CurMsg = HighMsgNumber : _
  170.              GOTO 4490
  171.      QuickScanMsgs = ZFalse
  172.      ReadMsgs = ZTrue
  173.      Forward = ZFalse
  174.      ZGlobalRead = ZFalse
  175.      HiLiteRec = -1
  176.      ScanMsgs = ZFalse
  177.      MsgStart = 6
  178.      MsgEnd = 100
  179.      IF ZLocalUserMode OR NOT ZLocalUser THEN _
  180.         IF ReadMsgIn$ <> ZActiveMessageFile$ THEN _
  181.            ReadMsgIn$ = ZActiveMessageFile$ : _
  182.            CALL UpdtCalr ("Read Messages in " + ReadMsgIn$,1)
  183.      GOSUB 1300
  184.      GOTO 4350
  185. '
  186. ' ****  S - COMMAND FROM MAIN MENU (SCAN MESSAGE HEADERS)  ***
  187. '
  188. * REPLACING old line(s) by new
  189. * ------[ first line different ]------
  190. 4352 CALL ViewStat ("C")                                             ' DR062201
  191.      SearchString$ = ""
  192.      DontPrint = ZFalse
  193.      JustReplied = ZFalse
  194.      QuotedReply = ZFalse
  195.      CanKill = (ZSysop OR ZUserSecLevel >= ZSecKillAny)
  196.      GOSUB 1893
  197.      GOSUB 5344
  198.      ZWasZ$ = ""
  199.      FOR WasI = 2 TO ZWasQ
  200.         IF INSTR("Ss*",ZUserIn$(WasI)) > 0 THEN _
  201.            ZUserIn$(WasI) = MID$(STR$(ZLastMsgRead+1),2) + "+"
  202.         IF INSTR("Ll",ZUserIn$(WasI)) > 0 THEN _
  203.            ZUserIn$(WasI) = MID$(STR$(HighMsgNumber),2) + "-"
  204.         IF INSTR("Gg",ZUserIn$(WasI)) > 0 THEN _
  205.            ZGlobalRead = ZTrue
  206.      NEXT
  207. * REPLACING old line(s) by new
  208. * ------[ first line different ]------
  209. 4380 CALL ViewStat ("C")                                             ' DR062201
  210.      WasA1$ = "Msg #" + _
  211.            STR$(LowMsgNumber) + _
  212.            "-" + _
  213.            MID$(STR$(ZMsgPtr(ActiveMessages,2)),2) + _
  214.            " (H)lp,S)ince,L)ast" + _
  215.            LEFT$(",G)lobal",8*(ZLinkedConf$ ="" OR ZGlobalRead)+8)
  216.      IF ZGlobalRead THEN _
  217.         CALL QuickTPut1 ("Reading globally")
  218.      IF AddressedToUser OR ToRequested OR FromRequested THEN _
  219.         ZWasY$ = LEFT$("TO",-2*(ToRequested OR AddressedToUser)) + _
  220.              LEFT$("/",-AddressedToUser) + _
  221.              LEFT$("FROM",-4*(FromRequested OR AddressedToUser)) : _
  222.         CALL QuickTPut1 ("Include only msgs "+ZWasY$+" you.  Read what msgs (? for help)") _
  223.      ELSE WasA1$ = WasA1$ + ",T)o,F)rom,M)" : _
  224.           IF ReadMsgs AND ZMarkedMsgs$ <> "" THEN _
  225.              WasA1$ = WasA1$ + "arked" _
  226.           ELSE WasA1$ = WasA1$ + "ine"
  227.      IF SearchString$ = "" THEN _
  228.         WasA1$ = WasA1$ + _
  229.              ", text" _
  230.      ELSE CALL QuickTPut1 ("Include only msgs with text " + SearchString$ + ".  Read what msgs (? for help)")
  231. * REPLACING old line(s) by new
  232. * ------[ first line different ]------
  233. 4770 CALL ViewStat ("E")                                             ' DR062201
  234.      CALL SysopChat
  235.      IF ZSubParm < 0 THEN _
  236.         GOTO 202
  237.      RETURN
  238. '
  239. ' ****  S - COMMAND FROM UTILITY MENU (STATISTICS)  ***
  240. '
  241. * REPLACING old line(s) by new
  242. 9700 ReturnOn$ = ",*,S,N,"
  243.      WasA1$ = ZBulletinMenu$
  244. * ------[ first line different ]------
  245.      CALL ViewStat ("D")                                             ' DR062201
  246. * REPLACING old line(s) by new
  247. 10932 IF ZLocalUser AND NOT ZDebug THEN _
  248.          CALL QuickTPut1 ("Only for remote SysOps") : _
  249. * ------[ first line different ]------
  250.      RETURN
  251.       CALL ViewStat ("I")                                            ' DR062201
  252.       CALL DosExit
  253.       ZSubParm = -9
  254.       CALL FindFKey
  255.       GOTO 202
  256. '
  257. ' *  D - COMMAND FROM MAIN MENU (EXIT TO DOORS)
  258. '
  259. * REPLACING old line(s) by new
  260. * ------[ first line different ]------
  261. 20150 CALL ViewStat ("J")                                            ' DR062201
  262.       ZFileSysParm = 1
  263.       GOTO 20200
  264. '
  265. ' * GO TO THE FILE SYSTEM TO LIST THE FILE DIRECTORIES
  266. '
  267. * REPLACING old line(s) by new
  268. * ------[ first line different ]------
  269. 20155 CALL ViewStat ("J")                                            ' DR062201
  270.       ZFileSysParm = 2
  271.       GOTO 20200
  272. '
  273. ' * GO TO THE FILE SYSTEM TO DOWNLOAD FILES
  274. '
  275. * REPLACING old line(s) by new
  276. * ------[ first line different ]------
  277. 20160 CALL ViewStat ("G")                                            ' DR062201
  278.       ZFileSysParm = 3
  279.       GOTO 20200
  280. '
  281. ' * GO TO THE FILE SYSTEM WHEN RETURNING FROM EXTERNAL PROTOCOLS
  282. '
  283. * REPLACING old line(s) by new
  284. * ------[ first line different ]------
  285. 20165 CALL ViewStat ("J")                                            ' DR062201
  286.       ZFileSysParm = 4
  287.       GOTO 20200
  288. '
  289. ' * GO TO THE FILE SYSTEM TO UPLOAD FILES
  290. '
  291. * REPLACING old line(s) by new
  292. * ------[ first line different ]------
  293. 20170 CALL ViewStat ("H")                                            ' DR062201
  294.       ZFileSysParm = 5
  295.       GOTO 20200
  296. '
  297. ' * GO TO THE FILE SYSTEM TO SCAN FILE SYSTEM DIRECTORIES
  298. '
  299. * REPLACING old line(s) by new
  300. * ------[ first line different ]------
  301. 20175 CALL ViewStat ("J")                                            ' DR062201
  302.       ZFileSysParm = 6
  303.       GOTO 20200
  304. '
  305. ' * GO TO THE FILE SYSTEM TO HANDLE "PERSONAL" FILES
  306. '
  307. * REPLACING old line(s) by new
  308. * ------[ first line different ]------
  309. 20180 CALL ViewStat ("J")                                            ' DR062201
  310.       ZFileSysParm = 7
  311.       GOTO 20200
  312. '
  313. ' * GO TO THE FILE SYSTEM TO LIST "NEW" FILES
  314. '
  315. * REPLACING old line(s) by new
  316. * ------[ first line different ]------
  317. 20185 CALL ViewStat ("J")                                            ' DR062201
  318.       ZFileSysParm = 8
  319.       GOTO 20200
  320. '
  321. ' * RETURN TO THE FILE SYSTEM AFTER HANDLING EXTENDED FILE DESCRIPTIONS
  322. '
  323. * REPLACING old line(s) by new
  324. * ------[ first line different ]------
  325. 20190 CALL ViewStat ("J")                                            ' DR062201
  326.       ZFileSysParm = 9
  327.